home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / Gopher_1.12 / GopherBrowserCell.m < prev    next >
Encoding:
Text File  |  1992-03-18  |  1.9 KB  |  115 lines
  1. ////////////////////////////////////////////////////////////////
  2. // All the data about a gopher item (type, hostname, filename, port)
  3. // is kept in this object.
  4.  
  5. #import "GopherBrowserCell.h"
  6.  
  7. @implementation GopherBrowserCell
  8.  
  9. - setTextAttributes:textObj
  10. {
  11.     [super setTextAttributes:textObj];
  12.  
  13.     switch (Type) {
  14.     case '0' :        // Document
  15.         break;
  16.     case '1' :        // Directory
  17.         break;
  18.     case '2':               // CSO Nameserver
  19.         [textObj setTextGray:NX_WHITE];
  20.  
  21.             break;
  22.     case '7' :        // Index
  23. //        [textObj setBackgroundGray:NX_BLACK];    // Useless: background not used
  24.         [textObj setTextGray:NX_WHITE];
  25.         break;
  26.     case 'T':
  27.     case 'R':
  28.     case '8' :        // Telnet
  29.         break;
  30.     case 's' :        // Sound
  31.         break;
  32.     default :
  33.         break;
  34.     }
  35.  
  36.     return self;
  37. }
  38.  
  39. /////////////////////////////////////////////////////////////
  40.  
  41. - setRemoteName:(char *)name
  42. {
  43.     strncpy(RemoteName, name,511);
  44.     return self;
  45. }
  46.  
  47. - (char *)remoteName
  48. {
  49.     return RemoteName;
  50. }
  51.  
  52. - setRemoteHost:(char *)name
  53. {
  54.     strncpy(RemoteHost, name, 128);
  55.     return self;
  56. }
  57.  
  58. - (char *)remoteHost
  59. {
  60.     return RemoteHost;
  61. }
  62.  
  63. - setRemotePort:(int)port
  64. {
  65.     RemotePort = port;
  66.     return self;
  67. }
  68.  
  69. - (int)remotePort
  70. {
  71.     return RemotePort;
  72. }
  73.  
  74. - setCellType:(char)type
  75. {
  76.     id        myFont;
  77.  
  78.     Type = type;
  79.  
  80.     switch (Type)
  81.     {
  82.     case '0' :        // Document
  83.         break;
  84.     case '1' :        // Directory
  85.         break;
  86.     case '2':               // CSO Nameserver
  87.      //   myFont = [Font newFont:"Times-Italic" size:14.0];
  88.      //   [self setFont:myFont];
  89.         break;
  90.     case '7' :        // Index
  91.         break;
  92.     case 'R':        // Rlogin
  93.     case 'T':        // TN3270
  94.     case '8' :        // Telnet
  95.         myFont = [Font newFont:"Courier" size:12.0];
  96.         [self setFont:myFont];
  97.         break;
  98.     case 's' :        // Sound
  99.         myFont = [Font newFont:"Times-Italic" size:12.0];
  100.         [self setFont:myFont];
  101.         break;
  102.     default :
  103.         break;
  104.     }
  105.  
  106.     return self;
  107. }
  108.  
  109. - (char)cellType
  110. {
  111.     return Type;
  112. }
  113.  
  114. @end
  115.